home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 30
/
Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso
/
Aminet
/
text
/
misc
/
2b_Ort.lha
/
Ort
/
ARexx
/
WWSprWyraz.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1999-02-10
|
3KB
|
104 lines
/*
$ver: WWSprWyraz.rexx 1.1 (08.02.99) BLABLA PRODUCT
© 1998-1999 Siumot/BlaBla
Ten skrypt jest przeznaczony dla programu WordWorth 6+. Sprawdza on poprawnoôê
pod wzglëdem ortograficznym wyrazu znajdujâcego sië pod kursorem tekstowym.
Jeôli w konfiguracji programu Ort jest ustawione îâczenie wyrazów a pod kursorem
znajduje sië wyraz, który Ort îâczy (np. "nie") to skrypt odczyta nastëpny wyraz
i do sprawdzenia przeôle poîâczone wyrazy (np. "nie lubië"). W takiej sytuacji
kursor tekstowy zostanie przesuniëty na drugi wyraz. Skrypt naleûy zainstalowaê
jako makro ARexxa w programie WordWorth 6+.
UWAGA!!! Jeôli nie zainstalowaîeô tego skryptu skryptem instalacyjnym Orta,
to musisz dopisaê nastëpujâcâ linië:
ORTFILENAME=ôcieûka dostëpu/Ort
Zamiast "ôcieûka dostëpu" naleûy oczywiôcie wpisaê ôcieûkë dostëpu
do programu Ort (np. ORTFILENAME=dh2:tekst/ort/ort).
*/
OPTIONS RESULTS
loncz_wyr='NIE NA CO PO JAK OD W BEZ Z NAD'
IF ~SHOW('P', '2b_Ort_rexx') THEN DO
IF ORTFILENAME='ORTFILENAME' THEN DO
REQUESTNOTIFY 'Program Ort nie jest uruchomiony.'
EXIT
END
ADDRESS COMMAND 'Run >NIL: "'ORTFILENAME'" CX_POPUP'
ADDRESS COMMAND 'WaitForPort 2b_Ort_rexx'
END
ADDRESS '2b_Ort_rexx' INFO Version
IF RESULT<1.1 THEN DO
REQUESTNOTIFY 'Skrypt wymaga Orta w wersji 1.1+'
EXIT
END
wyraz=GetWord()
ADDRESS '2b_Ort_rexx' Prefs Join Words
czylacz=RESULT
IF wyraz='' THEN DO
REQUESTNOTIFY 'Nie ma wyrazu pod kursorem!'
Exit
END
IF czylacz=1 THEN DO
ADDRESS '2b_Ort_rexx' Del Punctuation 1 UPPER(wyraz)
wyraz_duzy=RESULT
IF ~(FIND(loncz_wyr,wyraz_duzy)=0) THEN DO
POSITION EOW
dczlon=GetWord()
IF FIND(loncz_wyr' I A RESULT',UPPER(dczlon))=0 THEN wyraz=wyraz' 'dczlon
ELSE POSITION SOW
END
END
ADDRESS '2b_Ort_rexx'
Correction wyraz
err=RESULT
IF wyraz=='¶' THEN err=0
IF err=0 THEN tekst='Wyraz poprawny'
ELSE IF err=1 THEN tekst='Nieznany wyraz'
ELSE IF err=2 THEN tekst='Wyraz jest wyjâtkiem'
ELSE IF err=3 THEN tekst='Bîâd interpunkcyjny'
ADDRESS
IF err=1 THEN DO
ADDRESS '2b_Ort_rexx' Del Punctuation 3 wyraz
WIZARDREQ TITLE 'Ort' LABEL 'Sprawdzany wyraz: 'RESULT LABEL 'Wyraz jest niepoprawny lub nie zostaî dopisany do sîownika ORTa.' BUTTON 1 'D.Globalnie' BUTTON 2 'D.Specjal.' BUTTON 3 'Opuszczaj' BUTTON 0 'Poniechaj'
operacja=RESULT
ADDRESS '2b_Ort_rexx'
IF operacja=1 THEN Add Global wyraz
ELSE IF operacja=2 THEN Add Specialistic wyraz
ELSE IF operacja=3 THEN Add Omit wyraz
END
ELSE REQUESTNOTIFY tekst
EXIT
GetWord:
POSITION EOW
POSITION SOW
SHIFTDOWN
ALTDOWN
CURSOR RIGHT
ALTUP
GETTEXT
word=RESULT
pozycja=POS(' ',word)
IF pozycja>0 THEN DO
DO a=1 TO (Length(word)-pozycja+1)
CURSOR LEFT
END
word=Left(word,pozycja-1)
END
SHIFTUP
RETURN word